home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / !applications! / soundfx / sfx-bin30m / _rexx / differenciate.rexx next >
OS/2 REXX Batch file  |  1996-09-07  |  744b  |  48 lines
  1. /* SFX Differenciate */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS REXX_SFX
  6.  
  7. GetActiveBuffer
  8. buf1=RESULT
  9.  
  10. IF buf1<9999 THEN DO
  11.     GetSampleLength buf1
  12.     slen=RESULT
  13.     GetSampleRate buf1
  14.     srat=RESULT
  15.  
  16.     NewBuffer slen srat 1
  17.     buf2=RESULT
  18.  
  19.     SAY "generating ..."
  20.  
  21.     oldval=0
  22.     DO pos=0 to slen
  23.         GetSampleValue buf1 0 pos
  24.         newval=RESULT
  25.         dif=oldval-newval
  26.         PutSampleValue buf2 0 pos dif
  27.         oldval=newval
  28.     END
  29.  
  30.     SAY "ready"
  31. END
  32. ActivateSFX                                                /* fertig */
  33.  
  34. EXIT
  35.  
  36. AppError:PROCEDURE
  37.     cmd=arg(1)
  38.     ret=arg(2)
  39.     SAY 'Application Error';say
  40.     SAY 'Command 'cmd' failed with Returncode 'ret
  41.     SELECT
  42.         WHEN ret='1' THEN SAY '    => unknown command'
  43.         WHEN ret='2' THEN SAY '    => unknown parameter'
  44.         OTHERWISE SAY '    => unknown returncode'
  45.     END
  46.     SAY
  47. RETURN
  48.